home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / gfx / 3d / rayst881.lha / Install_RayStorm < prev    next >
Text File  |  1997-02-18  |  4KB  |  104 lines
  1. ;**************************************************************************
  2. ; Install_RayStorm - RayStorm installation script for Installer
  3. ;
  4. ; Copyright © 1995 Andreas Heumann
  5. ;
  6. ; $Id: Install_RayStorm,v 1.3 1996/03/12
  7. ;
  8. ;     Installer and Installer project icon
  9. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  10. ;     Reproduced and distributed under license from Commodore.
  11. ;
  12. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  13. ;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  14. ;     OR RESPONSIBILITY IS ASSUMED.
  15. ;
  16. ;**************************************************************************
  17. (welcome "Welcome to the " @app-name " installation.\n")
  18.  
  19. ; "Needs"
  20. (set need-version 37)  ; version of operating system need by RayStorm
  21.  
  22. ; The source directory name
  23. (set #source-dir
  24.  (if (= 1 (exists @icon))
  25.   (pathonly (expandpath @icon))
  26.   (expandpath @icon)
  27.  )
  28. )
  29.  
  30. ;**************************************************************************
  31. ; Select destination directory for the installation. We suggest the user
  32. ; to install to the place from where the installer was started. This is
  33. ; since normally this software will be unarchived to its proper location
  34. ; and the files don't have to be copied any more.
  35. ;**************************************************************************
  36. (procedure P_select-destination-directory
  37.  (transcript "Selecting destination directory for the installation.")
  38.  (while
  39.   (
  40.    (set #default-dest
  41.     (askdir
  42.      (prompt "Select directory where to install " @app-name ".\n"
  43.              "You have to create a directory for " @app-name " yourself."
  44.      )
  45.      (help "Here you can specify location where to install " @app-name ".\n"
  46.            "Installation can be made on-place. "
  47.            "This is recommended if you have already unarchived "
  48.            "the " @app-name " archive to its final location. "
  49.            "In this case most of the files are left where they are. "
  50.            "Only necessary files are copied to different "
  51.            "positions.\n"
  52.      )
  53.      (newpath)
  54.      (default #source-dir)
  55.     )
  56.    )
  57.    (if (= 2 (exists #default-dest))
  58.     0
  59.     (makedir #default-dest
  60.      (infos)
  61.     )
  62.    )
  63.   )
  64.  )
  65. )
  66.  
  67. ;**************************************************************************
  68. ; Installatation sequence
  69. ;**************************************************************************
  70. (message "This installation script will overwrite an older installed version "
  71.    "of " @app-name ". Please make a backup of any files you have changed.\n\n"
  72.    "Please remember during this installation:\n"
  73.    "Read the instructions provided behind the \"Help\" "
  74.    "buttons, if you are not absolutely sure what you are doing.\n"
  75. )
  76.  
  77. (complete 00)
  78. (transcript "On making " @app-name " 1.8.")
  79. (P_select-destination-directory)
  80. (complete 10)
  81. (working "Uncompressing basic files")
  82. (run (cat "lha x basic.lha " #default-dest "/ #?"))
  83. (complete 50)
  84. (working "Uncompressing executable files")
  85. (run (cat "lha x exe.lha " #default-dest "/ #?"))
  86. (complete 90)
  87. (startup @app-name
  88.    (prompt "An assign need to be added to the \"S:user-startup\" so that " @app-name " will find it's libraries.\n"
  89.            "Should I add this assign for you?")
  90.    (help "If you skip this you have to copy \"" (tackon #default-dest "libs/raystorm.library")
  91.       "\" to \"libs:\" or execute this command: \"assign libs: " (tackon #default-dest "libs") " add\".")
  92.    (command "assign libs: " (tackon #default-dest "libs ") " add\n")
  93. )
  94. (message "Installation of " @app-name " done.\n"
  95.          "Important note: If you have problems with the window update open the MUI settings requester\n"
  96.          "and select from the window part for 'Refresh' the 'Smart'-mode.\n"
  97.          "Note: There is another archive with the example files, which you can install too.")
  98. (complete 100)
  99.  
  100. ;;; All done!
  101.  
  102. ; EOF
  103.  
  104.